home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / lhs.g < prev    next >
Text File  |  1998-05-22  |  3KB  |  105 lines
  1. (game-module "lhs"
  2.   (title "Modern Game")
  3.   (blurb "The standard Xconq game, loosely updated to the modern world")
  4.   (instructions "Take over the world before you get taken over!")
  5.   (variants
  6.     (world-seen false)
  7.     (see-all false)
  8.     (world-size (60 30 360))
  9.     (sequential false)
  10.     ("Mostly Land" mostly-land
  11.       (true
  12.         ;; Adjust so that sea is 20% instead of 70% of the world.
  13.         (add sea alt-percentile-max 20)
  14.         (add shallows alt-percentile-min 20)
  15.         (add shallows alt-percentile-max 21)
  16.         (add swamp alt-percentile-min 21)
  17.         (add swamp alt-percentile-max 23)
  18.         (add (desert plains forest) alt-percentile-min 21)
  19.         ))
  20.     ("All Land" all-land
  21.       (true
  22.         ;; Adjust sea and shallows out of existence, let swamp take all the low spots.
  23.         (add sea alt-percentile-min 0)
  24.         (add sea alt-percentile-max 0)
  25.         (add shallows alt-percentile-min 0)
  26.         (add shallows alt-percentile-max 0)
  27.         (add swamp alt-percentile-min 0)
  28.         (add swamp alt-percentile-max 2)
  29.         (add swamp wet-percentile-min 0)
  30.         (add swamp wet-percentile-max 100)
  31.         (add (desert plains forest) alt-percentile-min 2)
  32.         ;; Counterproductive to try to set up near water.
  33.         (add sea country-terrain-min 0)
  34.         ))
  35.     ("Large Countries" large
  36.      (true
  37.        ;; This is the same as country separation.
  38.        (set country-radius-max 48)
  39.        ))
  40.     ("Test" test
  41.      (true
  42.        ;; For testing.
  43.        (set unseen-image-name "question")
  44.        (include "libimf")
  45.        ))
  46.     ("Noisy" noisy
  47.  (true
  48. (set action-movies '(
  49.   (move (sound "pop"))
  50.   ))
  51.  
  52. (set event-movies '(
  53.   (side-lost (sound "thunder"))
  54.   (unit-captured (sound "chirr"))
  55.   (unit-completed (sound "chirr"))
  56.   (unit-moved (sound "pop 2"))
  57.   ))
  58.      ))
  59.     )
  60.   )
  61.  
  62. (include "lhsunit")
  63.  
  64. (include "nat-names")
  65.  
  66. (include "town-names")
  67.  
  68. (add (* @) namer "random-town-names")
  69.  
  70. (set feature-types (("peak") ("lake")))
  71.  
  72. (include "ng-weird")
  73.  
  74. (namer generic-lake-names (grammar root 10
  75.   (root (or 5 (foo "Lake " generic-names)
  76.             1 (generic-names " Lake")
  77.             ))
  78.   (foo "")  ; works around a bug
  79.   ))
  80.  
  81. (set feature-namers (("lake" "generic-lake-names")))
  82.  
  83. (set advantage-min 1)
  84. (set advantage-default 1)
  85. (set advantage-max 5)
  86.  
  87. (scorekeeper
  88.   (title "")
  89.   (do last-side-wins)
  90.   )
  91.  
  92. (set scorefile-name "lhs.xcq")
  93.  
  94. (add u* see-terrain-if-captured 10)
  95. (add town see-terrain-if-captured 50)
  96. (add city see-terrain-if-captured 100)
  97.  
  98. (table see-others-if-captured
  99.   (ship ship 50)
  100.   (base u* 10)
  101.   (town u* 20)
  102.   (town (town city) 100)
  103.   (city u* 100)
  104.   )
  105.